home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November / PCWK1103B.iso / DesignCAD 3D Max PLUS trial 30 / DATA1.CAB / Example_Files / Sample_Macros / 600_7_Reset.d3m < prev    next >
Encoding:
Text File  |  2003-09-29  |  893 b   |  43 lines
  1. ' This is the seventh 600 series macro, which deletes summary box
  2. ' totals on layers 12 and 13 to "clear" the summary box for use
  3. ' with a new drawing.
  4. '
  5. Sys$(42) = "Question?"
  6. Color 0,2
  7. Window 5, 47
  8. Print ""
  9. Print " Are you sure you want to clear the 6x6 Summary Box?"
  10. Print ""    
  11. Print "                                 Press 1 to Continue" 
  12. Print "                                 Press 2 to Cancel"
  13. Anykey a
  14.         ' User chose 1
  15.             if a = 97 then goto cont
  16.             if a = 35 then goto cont
  17.             if a = 49 then goto cont
  18.         ' User chose 2
  19.             if a = 98 then goto ender
  20.             if a = 40 then goto ender
  21.             if a = 50 then goto ender
  22.             '
  23. cont:
  24. ' Select contents of layer
  25.     >SelectLayer
  26.     {
  27.     <Layer 12
  28.     <Layer 13
  29.     }
  30. ' Delete Totals
  31.     >SelectDelete
  32.     {
  33.     }
  34. wclose
  35. message "All Square and Length Meter Totals Deleted"
  36. end
  37.  
  38. ender:
  39. wclose
  40. message "Program Aborted by user."
  41. end
  42.  
  43.